home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 May / CMCD0505.ISO / Software / Demo / DesktopX / objects / GT3mail.dxpack / {046B0D46-A2F8-4403-A831-3ADDC2E3B9A0}.DXScript2 next >
Extensible Markup Language  |  2004-11-25  |  1KB  |  31 lines
  1. <?xml version="1.0"?>
  2. <!--DXScript Data File.  Version 2.0-->
  3. <DXScript>
  4.     <Script><![CDATA[Dim objNum
  5.  
  6. 'Called when the script is executed
  7. Sub Object_OnScriptEnter    
  8.     objNum=Right(Object.Name,Len(object.Name)-11)
  9.     desktopx.Object("GT3mm_files"&objNum).text="no"&Chr(13)&"new"&Chr(13)&"mail"
  10.     desktopx.Object("GT3mm_files"&objNum).opacity=50
  11. End Sub
  12.  
  13. Sub Object_OnStateChange(state)
  14.     If state="New mail" Then
  15.         desktopx.Object("GT3mm_files"&objNum).text="new"&Chr(13)&"mail"
  16.         desktopx.Object("GT3mm_files"&objNum).opacity=100
  17.         desktopx.ScriptObject("GT3mm_display"&objNum).alerton
  18.     ElseIf state="No new mail" Then
  19.         desktopx.Object("GT3mm_files"&objNum).text="no"&Chr(13)&"new"&Chr(13)&"mail"
  20.         desktopx.Object("GT3mm_files"&objNum).opacity=50
  21.         desktopx.ScriptObject("GT3mm_display"&objNum).alertoff
  22.     End If    
  23. End Sub
  24.  
  25.  
  26. 'Called when the script is terminated
  27. Sub Object_OnScriptExit
  28.  
  29. End Sub
  30. ]]></Script><Globals><Editor><PropPane>0</PropPane><EditorLeft>112</EditorLeft><EditorTop>297</EditorTop><EditorRight>945</EditorRight><EditorBottom>1095</EditorBottom></Editor><Object><LanguageCLSID>{B54F3741-5B07-11CF-A4B0-00AA004A55E8}</LanguageCLSID><ControlCLSID>{00000000-0000-0000-0000-000000000000}</ControlCLSID><ControlObjWidth>64</ControlObjWidth><ControlObjHeight>64</ControlObjHeight><RunState>1</RunState><ManualControlLoad>0</ManualControlLoad><ScriptHostVersion>2</ScriptHostVersion></Object></Globals></DXScript>
  31.